home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / tool_inc.zip / DTOF.INT < prev    next >
Text File  |  1989-06-02  |  317b  |  11 lines

  1. type
  2.   double    = array[0..7] of byte;
  3.  
  4. function dtof(B: double): real;
  5.    {convert 8 byte double to real}
  6. function dtol(B: double): longint;
  7.    {convert 8 byte double to long integer}
  8. procedure ftod(PasReal: real; var B: double);
  9.    {convert real to 8 byte double}
  10. procedure incd(var d: double; n: real);
  11.